home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / ROM.BAS < prev    next >
BASIC Source File  |  2000-09-26  |  115b  |  8 lines
  1. DEF SEG = &HF000
  2. OPEN "d:\rom.bin" for output as #1
  3. FOR i=0 TO 16384
  4.  ?#1,chr$(peek(i));
  5. NEXT
  6. CLOSE #1
  7. END
  8.